home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / docs / help / arexxbegin.lha / ARexx_For_Beginners / Articles_11-20 / Example15-1.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-08-03  |  667 b   |  17 lines
  1. /* Example15-1.rexx */
  2.  
  3. Cls    = 'c'x                        /* Clear screen             */
  4. Cdown  = 'a'x                        /* Cursor Down              */
  5. Bell   = '7'x                        /* Sound bell               */
  6. Header = Cls'THIS IS A HEADING'      /* Put header on each page  */
  7.  
  8. SAY Header
  9. SAY Cdown'Window has been cleared by header and there is a blank line above me.'
  10. SAY '9'x'This starts 8 places out.'
  11. SAY '8'x'My First character is on the previous line.'
  12. SAY Bell'Bell or Screen flash with this line.'
  13. SAY 'This line will not appear.'
  14. SAY 'b'x'As it is covered with this one.'
  15. SAY 'This line is followed by' 'b'x
  16. SAY '9'x'9'x'9'x' This line.'
  17.